#lang rosetta-racket


(require "test-lines.rkt")

(provide test-lines-example)


(define (test-lines-example)
  (view-ortho-top
   (list
    (open-line)
    (automatically-closed-line)
    (closed-line)
    (closed-line-with-warning)
    
    (open-line-begin-c)
    (open-line-end-c)
    (open-line-cs)
    
    (automatically-closed-line-begin-c)
    (automatically-closed-line-end-c)
    (automatically-closed-line-cs)
    
    (closed-line-begin-c)
    (closed-line-end-c)
    (closed-line-cs)
    
    (closed-line-with-warning-begin-c)
    (closed-line-with-warning-end-c)
    (closed-line-with-warning-cs))))